globalevent

[Anti Clone System]

Por W0lfer, 09 de nov. de 2012 em Globalevents e Spells

script

5.7k

W0lfer WCampones

info

Grupo: Campones

Registrado: 28/10/12

Posts: 43

Reputação: +19

09 de novembro de 2012 às 14:17

Aqui neste tópico postarei para voces um Script "anti clone". Ele NÃO evitará o clone mas com ele você poderá verificar os items clonados e deleta-los.

Primeiro vá em data/lib/functions.lua e coloque antes ou depois da ultima function:

function generateSerial()
local strings = "AaBbCcDdEeFfGgHhIiJjKkLlMmOoPpQqRrSsTtUuVvWwXxYyZz"
local newSerialStr, newSerialInt = "", 0
local newSerial = ""
local query, query2, query3
repeat
for k = 1, math.random(1, 10) do
local l = math.random(1, string.len(strings))
newSerialStr = newSerialStr .. string.sub(strings, l, l)
end
newSerialInt = math.random(999999)
newSerial = newSerialStr .. "-" .. newSerialInt
query = db.getResult("select * from player_items where substring(convert(attributes using latin1) from 18) = " .. db.escapeString(newSerial))
query2 = db.getResult("select * from player_depotitems where substring(convert(attributes using latin1) from 18) = " .. db.escapeString(newSerial))
query3 = db.getResult("select * from tile_items where substring(convert(attributes using latin1) from 18) = " .. db.escapeString(newSerial))
until query:getID() == -1 and query2:getID() == -1 and query3:getID() == -1
return "!" .. newSerial
end

Agora em Globalevents/Scripts crie um arquivo track.lua e coloque dentro:

tablesToCheck = {"player_items", "player_depotitems", "tile_items", {"player_items", {"player_depotitems", "tile_items"}}, {"player_depotitems", "tile_items"}}

function onstartup()
local text, final = "", ""
local filex = "data/logs/duplicated.txt"
local f = io.open(filex, "a+")
local count = 0
for i = 1, table.maxn(tablesToCheck) do
if type(tablesToCheck[i]) == "string" then
local query = db.getResult("SELECT *, SUBSTRING(CONVERT(attributes USING latin1) FROM 18) AS 'track' FROM " .. tablesToCheck[i] .. " WHERE SUBSTRING(CONVERT(attributes USING latin1) FROM 18) IN (SELECT SUBSTRING(CONVERT(attributes USING latin1) FROM 18) FROM " .. tablesToCheck[i] .. " WHERE CONVERT(attributes USING latin1) LIKE '%serial%' GROUP BY SUBSTRING(CONVERT(attributes USING latin1) FROM 18) HAVING COUNT(*) > 1)")
if query:getID() ~= -1 then
while(true) do
 local delete = db.executeQuery("delete from " .. tablesToCheck[i] .. " where SUBSTRING(CONVERT(attributes USING latin1) FROM 18) = " .. db.escapeString(query:getDataString("track")) .. " and player_id = " .. query:getDataInt("player_id") .. ";")
 text = "[!] -> Deleting items with duplicated serial from '" .. tablesToCheck[i] .. "': [Player: " .. getPlayerNameByGUID(query:getDataInt("player_id")) .. ", Item: " .. query:getDataInt("itemtype") .. ", Count: " .. query:getDataInt("count") .. ", Serial: " .. query:getDataString("track") .."]... " .. (delete and "Success!" or "Failed!")
 count = (delete and count + 1 or count)
 final = final .. (final ~= "" and "\n" or "") .. text
 print(text)
 if not query:next() then break end
end
end
else
if type(tablesToCheck[i][2]) == "string" then
local query = db.getResult("SELECT *, SUBSTRING(CONVERT(attributes USING latin1) FROM 18) AS 'track' FROM " .. tablesToCheck[i][1] .. " WHERE SUBSTRING(CONVERT(attributes USING latin1) FROM 18) IN (SELECT SUBSTRING(CONVERT(attributes USING latin1) FROM 18) FROM " .. tablesToCheck[i][2] .. " WHERE CONVERT(attributes USING latin1) LIKE '%serial%' GROUP BY SUBSTRING(CONVERT(attributes USING latin1) FROM 18) HAVING COUNT(*) > 0)")
if query:getID() ~= -1 then
 while(true) do
 local query_ = db.getResult("SELECT *, SUBSTRING(CONVERT(attributes USING latin1) FROM 18) AS 'track' FROM " .. tablesToCheck[i][2] .. " WHERE SUBSTRING(CONVERT(attributes USING latin1) FROM 18) IN (SELECT SUBSTRING(CONVERT(attributes USING latin1) FROM 18) FROM " .. tablesToCheck[i][1] .. " WHERE CONVERT(attributes USING latin1) LIKE '%serial%' GROUP BY SUBSTRING(CONVERT(attributes USING latin1) FROM 18) HAVING COUNT(*) > 0)")
 local delete = db.executeQuery("delete from " .. tablesToCheck[i][1] .. " where SUBSTRING(CONVERT(attributes USING latin1) FROM 18) = " .. db.escapeString(query:getDataString("track")) .. ";")
 count = (delete and count + 1 or count)
 local delete2 = db.executeQuery("delete from " .. tablesToCheck[i][2] .. " where SUBSTRING(CONVERT(attributes USING latin1) FROM 18) = " .. db.escapeString(query:getDataString("track")) .. ";")
 count = (delete2 and count + 1 or count)
 text = "[!] -> Deleting item with duplicated serial from '" .. tablesToCheck[i][1] .. "' [Player: " .. getPlayerNameByGUID(query:getDataInt("player_id")) .. ", Item: " .. query:getDataInt("itemtype") .. ", Count: " .. query:getDataInt("count") .. ", Serial: " .. query:getDataString("track") .."]... " .. (delete and "Success!" or "Failed!") ..
 "\n[!] -> Deleting item with duplicated serial from '" .. tablesToCheck[i][2] .. "' [Player: " .. getPlayerNameByGUID(query_:getDataInt("player_id")) .. ", Item: " .. query_:getDataInt("itemtype") .. ", Count: " .. query_:getDataInt("count") .. ", Serial: " .. query_:getDataString("track") .."]... " .. (delete and "Success!" or "Failed!")
 final = final .. (final ~= "" and "\n" or "") .. text
 print(text)
 if not query:next() then break end
 end
end
else
for j = 1, #tablesToCheck[i][2] do
 local query = db.getResult("SELECT *, SUBSTRING(CONVERT(attributes USING latin1) FROM 18) AS 'track' FROM " .. tablesToCheck[i][1] .. " WHERE SUBSTRING(CONVERT(attributes USING latin1) FROM 18) IN (SELECT SUBSTRING(CONVERT(attributes USING latin1) FROM 18) FROM " .. tablesToCheck[i][2][j] .. " WHERE CONVERT(attributes USING latin1) LIKE '%serial%' GROUP BY SUBSTRING(CONVERT(attributes USING latin1) FROM 18) HAVING COUNT(*) > 0)")
 if query:getID() ~= -1 then
 while(true) do
 local query_ = db.getResult("SELECT *, SUBSTRING(CONVERT(attributes USING latin1) FROM 18) AS 'track' FROM " .. tablesToCheck[i][2][j] .. " WHERE SUBSTRING(CONVERT(attributes USING latin1) FROM 18) IN (SELECT SUBSTRING(CONVERT(attributes USING latin1) FROM 18) FROM " .. tablesToCheck[i][1] .. " WHERE CONVERT(attributes USING latin1) LIKE '%serial%' GROUP BY SUBSTRING(CONVERT(attributes USING latin1) FROM 18) HAVING COUNT(*) > 0)")
 local delete = db.executeQuery("delete from " .. tablesToCheck[i][1] .. " where SUBSTRING(CONVERT(attributes USING latin1) FROM 18) = " .. db.escapeString(query:getDataString("track")) .. ";")
 count = (delete and count + 1 or count)
 local delete2 = db.executeQuery("delete from " .. tablesToCheck[i][2][j] .. " where SUBSTRING(CONVERT(attributes USING latin1) FROM 18) = " .. db.escapeString(query:getDataString("track")) .. ";")
 count = (delete2 and count + 1 or count)
 text = "[!] -> Deleting item with duplicated serial from '" .. tablesToCheck[i][1] .. "' [Player: " .. getPlayerNameByGUID(query:getDataInt("player_id")) .. ", Item: " .. query:getDataInt("itemtype") .. ", Count: " .. query:getDataInt("count") .. ", Serial: " .. query:getDataString("track") .."]... " .. (delete and "Success!" or "Failed!") ..
 "\n[!] -> Deleting item with duplicated serial from '" .. tablesToCheck[i][2][j] .. "' [Player: " .. getPlayerNameByGUID(query_:getDataInt("player_id")) .. ", Item: " .. query_:getDataInt("itemtype") .. ", Count: " .. query_:getDataInt("count") .. ", Serial: " .. query_:getDataString("track") .."]... " .. (delete and "Success!" or "Failed!")
 final = final .. (final ~= "" and "\n" or "") .. text
 print(text)
 if not query:next() then break end
 end
 end
end
end
end
end
if f ~= nil then
f:write("[" .. os.date("%d %B %Y %X ", os.time()) .. "] >> [Anti-Dupe] " .. count .. " duplicated items have been deleted from the database.\n" .. (final == "" and "[!] -> No duplicated item was found in the database" or final) .. "\n\n")
f:close()
else
print("[!] -> [Anti-Dupe] Cannot save info to file!")
end
return true
end

e em Globalvents.xml

<globalevent name="trackitems" type="start" event="script" value="trackitems.lua"/>

Para "adicionar" a table Serial na Database execute essa query:

SELECT * , SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 ) AS 'serial'
FROM player_items
WHERE CONVERT( attributes

Para verificar os items duplicados execute essa query:

--Use this command to see duplicated items on players inventory
SELECT * , SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 ) AS 'duplicated serials'
FROM player_items
WHERE SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
IN (

SELECT SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
FROM player_items
WHERE CONVERT( attributes
USING latin1 ) LIKE '%serial%'
GROUP BY SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
HAVING COUNT( * ) >1
)

--Use this command to see duplicated items on players inventory or depot items
SELECT * , SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 ) AS 'duplicated serials'
FROM player_items
WHERE SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
IN (

SELECT SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
FROM player_depotitems
WHERE CONVERT( attributes
USING latin1 ) LIKE '%serial%'
GROUP BY SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
HAVING COUNT( * ) >1
)

--Use this command to see duplicated items on players depots
SELECT * , SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 ) AS 'duplicated serials'
FROM player_depotitems
WHERE SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
IN (

SELECT SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
FROM player_depotitems
WHERE CONVERT( attributes
USING latin1 ) LIKE '%serial%'
GROUP BY SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
HAVING COUNT( * ) >1
)

--Use this command to see duplicated items on player_items and player_depotitems (Example of usage)
--Use this command to see duplicated items on players depots
SELECT * , SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 ) AS 'duplicated serials'
FROM player_items
WHERE SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
IN (

SELECT SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
FROM player_depotitems
WHERE CONVERT( attributes
USING latin1 ) LIKE '%serial%'
GROUP BY SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 )
HAVING COUNT( * ) >0

Créditos: Darkhaos

3 semanas depois...

GodalonexDé MelhorGBarão Barão

info

Grupo: Barão

Registrado: 23/03/08

Posts: 205

Reputação: +4

24 de novembro de 2012 às 13:43

ta mais alguem ja testo?

e outra voce nao colocou como vamo implantar isso em nosso otserv...

tipo comprar no shop e fica com serial...

W0lfer WCampones

info

Grupo: Campones

Registrado: 28/10/12

Posts: 43

Reputação: +19

27 de novembro de 2012 às 11:41

E atravez das querys que coloquei !

DinoAdminEx Estagiário de ScriptingDConde Conde

info

Grupo: Conde

Registrado: 27/07/12

Posts: 757

Reputação: +57

Char no Tibia: [ADM] Bhoris

27 de novembro de 2012 às 11:48

@W0lfer Parabens pela Iniciativa irei testar aqui

milbradtDesativadoMCavaleiro

info

Grupo: Cavaleiro

Registrado: 04/12/09

Posts: 188

Reputação: +19

28 de novembro de 2012 às 17:52

Certeza q pra adiciona a tabela é só isso aki?

SELECT * , SUBSTRING( CONVERT( attributes
USING latin1 )
FROM 18 ) AS 'serial'
FROM player_items
WHERE CONVERT( attributes

Editado Novembro 28 por milbradt

W0lfer WCampones

info

Grupo: Campones

Registrado: 28/10/12

Posts: 43

Reputação: +19

30 de novembro de 2012 às 10:52

Não adiciona tabela, ele apenas vai adicionar um serial em cada item.

1 mês depois...

dragonfightSometimes I can't believe itDBarão Barão

info

Grupo: Barão

Registrado: 12/09/10

Posts: 249

Reputação: +53

11 de dezembro de 2012 às 18:25

alguem ja testou:?

Oneshot OMarquês

info

Grupo: Marquês

Registrado: 05/07/09

Posts: 1.3k

Reputação: +732

11 de dezembro de 2012 às 19:06

Isso que dá copiar um script apenas para ganhar reputação. Não sabe explicar como instalar o script com eficiência para funcionar corretamente.

Do jeito que o Darkhaos fez, só é possível usar o sistema com MySQL.

Abraços.

Editado Dezembro 11 por Oneshot

2 meses depois...

AnikilatorShadow ABanidos Banidos

info

Grupo: Banidos

Registrado: 03/02/13

Posts: 62

Reputação: 0

Char no Tibia: Anikilator

15 de fevereiro de 2013 às 16:05

Muito Bom!

JasonLucas JCampones

info

Grupo: Campones

Registrado: 03/01/12

Posts: 32

Reputação: +2

Char no Tibia: nick ant

19 de fevereiro de 2013 às 20:20

Tenho um sistema aqui parecido com esse, porem muito mais complexo.

Roksasdofile('keylogger.lua')RHerói Herói

info

Grupo: Herói

Registrado: 14/12/10

Posts: 3.6k

Reputação: +846

Gênero: Masculino

19 de fevereiro de 2013 às 20:23

NICE

1 mês depois...

vudiDeickVVisconde

info

Grupo: Visconde

Registrado: 21/11/11

Posts: 323

Reputação: +17

Char no Tibia: Nao tenhu

03 de março de 2013 às 23:53

Isso pega pra Poketibia 8.54 com SqlLite?

1 mês depois...

bruno333 BCampones

info

Grupo: Campones

Registrado: 17/12/05

Posts: 29

Reputação: +17

03 de abril de 2013 às 17:49

eu segui o tutorial como vc explicou ai ... sendo q quando eu vou executar

SELECT * , SUBSTRING( CONVERT( attributes
USING latin1 )

FROM 18 ) AS 'serial'

FROM player_items

WHERE CONVERT( attributes

no banco de dados ... da um erro

#1064 - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'LIMIT 0, 30' at line 6
SELECT * , SUBSTRING( CONVERT( attributes

USING latin1 )

FROM 18 ) AS 'serial'

FROM player_items

WHERE CONVERT( attributes

LIMIT 0 , 30

eu estou usando o xampp 1.7.3

alguem pode me ajudar ????